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The Charter of the COMMODORE PET USER CLUB is to provide a method of 
sharing up to date information, applications and programs relating to the PET 
Computer between the many PET owners and users. 


We would like to publish features from PET Users concerning specific’applications 
interesting discoveries or even bits worthy of sharing. If you would like to con- 
tribute to future newsletters, please send your article, letter or comments to: 


THE EDITOR 

COMMODORE U.S. PET USERS' CLUB 
COMMODORE BUSINESS MACHINES, INC. 
3330 SCOTT BLVD. 

SANTA CLARA, CALIF. 95050 


Editor Notes 


Dear PUC Readers: 


Our first effort to produce better communication with PET Users', brought on 
numerous responses. We now realize how necessary this NEWSLETTER is 
and will continue to do the best job possible. 


Along with all the problems of the initial production of the first NEWSLETTER, 
we ran across further irratations after hours of writing, coordination, and editing. 
After mass reproduction, we discovered to our dismay poor print. We are pleased 
to announce however, that the problem has been solved, and we hope it has not 
caused you any inconvienence. 


We are here to accommodate YOU, therefore programs of illegible quality have been 
reprinted and follow these error corrections..... 


© One correction that is necessary was pointed out by Mark Hodes, of Palo Alto, 
Calif. It is on page 15 Line 1090; It should read as; POKE 59411, 61:Close 1. 


® On page 19 the routine for complete character set, was typed in for printing only 
on the printer. The Print Out which follows will now display and print. 


Please note that to provide a good information service to PET Users, we intend to 
regularly mention equipment, software and services offered by companies and 

individuals not directly linked to Commodore. In doing so, we are not making recommen- 
dations and cannot be held responsible for the validity of any statements made. 


Once again we thank you for your interest and patience, and hope our next issue 
contains even more interesting information from other PUC members. 


The Editor 
PAGE 9 ISSUE 1, reprint 
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PLOTTER 


2 $=" ERR EEEEER ED)" 


ORT=1TO45 
RINT "LY -FORK=1T046 


ladies ger 14.415,.16.17.19,.19,26.21.22,.23,.24.25.,26:27 


CHAtD ON IGOSUBSG.44@, 56, 66.76,96,9@,166.118,126,136,.144.156,168.176 
INTCA#Y+B) 

RINTZ$ "ay = "AS 

OKE C (24-Y) £46+32867) +h. 46 


NERT :-FORJ=17T0166G : NEXT: NEKT :GOTO2 


RES RBBB BA ROB ERE THE TONSTANTS YEAT+tB HCH +D wee 


AHF :B=12:0=, 6619 :D=.435 : RETURN 
A=.6:B=@:C=1:D=6: RETURN 
A=7 -B=i3:C=.5 :D=G: RETURN 

=P: BH=i3s:c=.5 :D=6: Ree 
A=1.1:B=14:0=.3:D=.2: RETURN 
A=,.67:B=2:C=41:D=-26: RETURN 
A=.€@615 :B=42:0=1:D=-i19:RETURN 
AHi: Bee :C=.4:D=-.9: RETURN 

AHF -Bet2:C=,1:D=.2: RETURN 
A=.5 :B=12:C=.65:D=-. 942 : RETURN 
A=9:B=12:0=.6621:D=.@32 : RETURN 
A=166:B=12:0=.46:D=5.5 : RETURN 
A=13:.B=5 :C=.26:D=a: RETURN 
AH=2G : B=2:C=1:D=6:RETURN 
A=26:-B=2:0=.,4:D=-2: RETURN 
REN da Haag RE ERR RRR THE FUNCTIONS Y = F CK) REE: 


Y=6 :Ag="G" -RETURM 

Yee -AS="AHN+B" RETURN 

F=COSt(2Z) -AS$="COSCK)" - RETURN 

YESINC2) :AS="SINCK)" -RETURN 

Y=TAN2) :AS="TANCK)" - RETURN 
Y=t2) t2:AG="KN2" - RETURN 
FSCS TS: AS="KNB" - RETURN 

YEAP (2) -AS="ENK" - RETURN 

YSLOGt2Z) -AS="LNCK)" - RETURN 

Yeiv2 : As="—TBMRK" - RE TURN 

YSSINCi/2) -AS="S1N (—) OLS": RETURN 
Y=SINt2)42:A$="NS1N (x) Se t——_agiix” -RETURN 
Y=ABSCSIN¢2)) :AS="1 SIN CK) 1": RETURN 
VSRNDCL) -AS="RNDCK)” - RETURN 

F=ER Petz 22) :A$S="NORMAL CURVE” : RETURN 
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M DISABLE STOP KEY EXAMPLE 
OSUB 16@66:REM ### SET UP MACH CODE AND DISABLE STOP ##* 
RINT "L's :-REM ### CLR SCREEN ### 


FRESH gO ERR RE 


REM # # 

REM # SAMPLE PROGRAM WITH NO STOP KEY * 

REM # # 

REM # PROGRAM ECHOS ALL KE'S TYPED AT. ¥ 

REM # THE KEYBOARD. EXIT BY TYPING THE ¥ 

REM# PASSWORD “CBM”. # 

REM # ¥ 

FE IM eee 

REM ### BLINK CURSOR ### 

PRINT "S8Iv> :REM ### PRINT SHADY CHAR AND CRSR LEFT ### 
FOR I=1 TO 3G:REM ### WAIT AND GET ANY CHARACTERS ### 
GET AS:IF AS{>"" THEN 3686 

NEXT 

PRINT " 8° :-REM ### PRINT SPACE AND CRSR LEFT ### 

FOR I=1 10 S@:REM ### WAIT AND GET ANY CHARACTERS ### 
SET AS:IF ASC>"" THEN 3606 

NEXT 

SOTO 1166 

REM ###%# PASSWORD TEST #### 

BS=RIGHTS(BS. 2) +A$: REM ### TEST LAST THREE CHARACTERS #8 
IF BS$¢>"CBMN" THEN 4668 


PRINT "Sl " REM ##* ERASE PASSWORD ### 
SYS(843) :-REM ### ENABLE STOP KEY AGAIN ### 
END 


PRINT " BAS; : REM ##% ECHO LAST CHARACTER ### 
SOTO 1146 

FE eee 
REM # # 
REM# MACHINE LANGUAGE PROGRAM # 
REM # # 
REM * SY¥St832) DISABLE STOP KEY FUNCTION = # 
REM * S¥5S(848) ENABLE STOP KEY FUNCTION # 
REM * # 
REM Ee ERE EER REE EERE RE EEE RRR E 
DATA 126.169.96.141,.25,2,169,3 

DATA 141.26.2,88.96.6,.6.6 

DATA 126,.169,133.141,25,2,169.236 

DATA 141.26,2,38.96.6,.6,6 

DATA 32.234,.255,169.253.141,.9:2 

DATA 76,136.,236.6 

RES TORE :FORI=832 T0874 :-READH :-POKET.W: NERT 

SYS(832):REM ### DISABLE STOP KEY ##% 

RETURN 


Data Exchange 


For better accomodation and communication with our USERS', this section will cover 
answers to your inquires not covered in the NEWSLETTER. 


The foll owing three questions are in response to Charles A. McCarthy, of St. Paul, Minn. 


Q. The booklet "An introduction to your new PET" that came with my PET states 
that positions A27 and A28 are RES and IRQ. Can PET be harmed by simply 
bringing these pins to ground using an external pushbutton? My thought is that 
this would be preferable to turning the PET on then off when it crashed--at least 
it should be easier on the CRT filament. 


A. Unless you are debugging a machine language program 

there is no reason why your PET should crash. There is 

an updated ROM for the original PET ROM set to prevent 

the "cursor going away when editing" problem. Other RAM 
and ROM problems can be cured at your service center to 

prevent "crashes". 


In direct answer to your question, both RESET AND IRQ can 
be brounded safely at A27 and A28 respectively or the 
memory expansion connector. The RESET signal is debounced 
by hardware on the logic board. You may have unpredictable 
results using IRQ unless you debounce it with a circuit 
such as shown: 019ROM, price $30.00. 


‘ee 





Q. The nature of the PIA/VIA addresses at E81x/ E82x/ E84x make me suspect 
that these addresses are incompletely decoded; true? If so, is there danger of harm 
to any of the parts if, for instance, one inadvertently addressed location E 703 for 
a read? | have visions of all three 1/0 chips trying to have its own way with the 
data bus and trying to destruct each other, while the 6502 becomes confused. 


A. The memory locations for the TV display RAM, both PIA's 
and the VIA are not completely decoded. The result is many 
images of these devices but they never overlap so it is not 
possible to address multiple devices. 


The TV RAM occupies $8000 to $83FF and has an image $8400 to 
S87FF. 


The PIA's have base addressed SE81% and S$E829. The VIA 
occupies 16 locations starting at S$E84f. The next images of 
these devices are at E899, E8AQ, E8CQ. 


There is no danger to the PET I/O devices no matter what 
addresses that the processor reads or writes. Reading lo- 
cation $E7%3 will give you a character from the TV screen. 


Q. There is a footnote on p. 11 of the first NEWSLETTER "retrofit kit required for 
operation of the 2040 Dual Disc with PET 2001-8". What could that involve? New 
ROM's? Additional RAM? Complete new main board? In any case, what does it 
cost ? 


A. The retrofit kit to operate the new PET 2040 Dual Floppy 
Disk on an "old" 8K PET simply involves replacing the existing 
socketed ROMS with a new set. These new ROMS are included in 
the $1095.00 price. 


To use the disk, no additional RAM is required. 


Commodore News 


Unfortunately, a few USERS' did not receive an ERRATA sheet 
upon receipt of our newest USERS' MANUAL. Therefore below 
is a copy of the ERRATA Sheet, including the latest corrections 
(*) to date. 
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PET USER MANUAL MODEL 2001-8 AMENDMENTS 
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LOCXATION read. LOCATION 

character READ carriage 

th READ the 

i.E. READ i.e. 

effect if a space READ effect of a 
space 


‘Subtration READ Subtraction 


90 degree READ 90 degrees 

lanuage READ language 

adviseable READ advisable 

O=X =255 READ 0 =X =255 

HTPERBOKIC COSINE read HYPERBOLIC COSINE 
HTPERBOLIC SECANT read HYPERBOLIC SECANT 
Omit colons (:) from lines 10 and‘15 

of the last program 

(9$1)*(8S1) read (9+1) * (841) 


are divide in READ are divided in 

OPEN#LF,D,S,FN read OPEN#LF,D,SA,FN 

desireable READ desirable 

adviseable READ advisable 

meesage READ message 

adviseable READ advisable 

temoraril READ temporarily 

delete first two paragraphs titled: 
"Out of Data...A READ" 


only ccurs READ only occurs 
location not specifies READ locations 
not specified 


62 byte on READ 62 bytes on 
IF:alwys READ always 


PRINT;nest READ next 


untill READ until 

POKE of the decimal equivalent of the 
lower address to location 2 SHOULD 
READ POKE of the decimal equivalent 
of the lower address to location 1 


Software 

NEW SOFTWARE 

Some of you have shown an interest in the purchase of Software from other Commodore 
divisions, therefore per your requests we have listed the programs and their current 


cost. These will be available March 30, 1979. For the descriptions of these pro- 
grams, please see Volume |, issue 1 of the PUC NEWSLETTER. 


PROGRAM NAME — PROGRAM NUMBER PRICE 

ROCKSTOCK 321019 $29.95 
ARDENSTOCK 321023 24.95 
COSTING 321024 19,95 
DATA BASE UTILITY 321025 24.95 
SURVEY ANALYSIS 321026 14.95 
SNARK 321027 19.95 
DISASSEMBLER 321028 24.95 
MACHINE CODE HANDLER 321029 9.95 
HEX EDITOR AND LOADER 321030 9.95 
LEAST SQUARES 321031 9.95 


MRR KR RRR RRR KKK KKK EKKKEKK EEK ERK KKREKKKEKKKKEKKKRKRKRY 


As you probably know, Commodore encourages you, the PET 
user, to submit programs for possible publication. Under- 
standingly, the response has been tremendous! Occasionally 
we have encountered quality programs which we feel may be 
of interest to a select group of users. [In an effort 

to meet your software needs, we would like to make these 
programs available to you. 


WEAVE AND DRAFT 


DRAFT: Takes patterns up to 30 threads wide by 
24 long and gives draft, if possible, on minimum 
number of harnesses, (maximum is 8). Draft can 
be stored and passed to WEAVE. 


WEAVE: Takes draft from above or one you give it 
(up to 30 wide x 24 long) and "weaves" pattern on 
screen like a sample loom. Reaquires 8K of RAM. 


DYNAMIC JOB SCHEDULER 


With this program scheduling and controlling jobs 
and tasks can be done by your PET. Invaluable 

to businesses where tight schedules are critical 
to customer satisfaction. Ideal for personal 
use, also. Requires 8K of RAM. 


CONTACT: 


Mr. James A. Fowler: P.O. Box L 
Coraway Road 
Seauket, New York 
11733 


Inquires to: Mark Stewart 
2805 West 2935 South 
Salt Lake City, Utah 
84119 


Please note that these programs are not avajlable through 
Commodore. Contact the author at the address given. 
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SOFTWARE REVIEW 


The Basic Math Package Program Number 321014 


The BASIC. MATH package is a collection of 6 programs dealing 
with a variety of computational concepts from geometry, 
numerical analysis and algebra. The purpose is twofold. 

The programs can be used as a computational tool in research 
or they can be used in education. The basic theory is 

part of the curriculum of a first year calculus class. 


PLANE GEOMETRY: The Plane Geometry program is used to solve 
a triangle from a minimum amount of information. A triangle 
is said to be solved when the measures of all three angles 
and the lengths of all three sides are known. 


The Plane Geometry program will also compute the areas of 
any triangle and any regular (all sides are equal) polygon. 


SPHERICAL GEOMETRY: The Spherical Geometry program demonstrates 
the analogies between plane and spherical geometry. Spherical 
triangles are solved just as in the Plane Geometry program. 

THe program works for any radius or angular measure which may 

be used for the lengths of sides. 


ANALYSIS: The Analysis program computes the integral of 
discrete data using both the trapezoid rule and Simpson's 
rule. Integration of continuous functions can be done by 
entering the function as line 1 of the program. Gaussian 

10 point quadrature is used to compute the integral. The 
program also computes the first, second and third derivatives 
of discrete points. 


MATRIX: Matrix 1 and Matrix 2 are two programs that compute 
the standard matrix operations: add, subtract, multiply, 
transpose, determinant, inverse and solution to simultaneous 
equations. 


VECTORS: The Vectors program stores up to six vectors in 
memory and computes the standard vector operations: add, 
subtract, magnitude, dot product, cross product and angle 
between vectors. 


The package includes a 72 page instruction manual which de- 
scribes the concepts used in the programs and contains many 
sample problems and an extensive list of useful formulas. 


FEATURE PROGRAM 


Break-Even Analysis (by J. Parsons/C. Westfall) 


The following program, Break-Even Analysis, contains several 
techniques you may find useful. It features the 'form' method 
of entering and displaying data. For many applications the 
‘form' technique provides the user with a quick and easy 
method of entering and editing data. This particular program 
calculates the gross profit along with one of four variables: 
fixed cost, variable cost, sale price or number of units. 


BREAK-EVEN ANAL YSis 


5 REM (16-36) INITILIZATION OF PROGRAM 
1@ TE=3:DIMIZ¢TE. 3) ,E$(6) .KS(TED 
14 E$(G) =" OML IT TLEMDATA" :E$¢1)= "IT OMMUCHMIDATA” > $ (2) ="iNOMDATAMWASIISENT" 
28 GOSUB1GQG:WS=CHR$(13) +"TMLEN" +CHRS (28) +" #CHRS (148) /¥Se"LeS4O07R9R, 
3@ OPENS.3:1=6 
35 REM (46-96) CONTROLS INPUT FROM THE FORM 
4@ A=I%¢1,@) :BaI%1.4) :C=14(1,2) :D=4: IF DS="M M ORDS="M" THENK=B+C-4 : D=C 
56 GOSUB2@8G :K (1) =VAL{3$) 
78 IFD$=" M"ORD$="H" THENS4 
86 IFD$=" M"ORD$="M" THENG4 
81 FORJ=1105: IFMID$(W$,J,1)<>D$THENNEXT 
82 ONJGOT09G.34,.86,88,89,86 
84 I=I-1: IF I<@THENI=TE - 
85 GOTO4e 
86 I=1+4: IF I>TETHENI=6 
87 GOTO4E 
88 GOSUB3EG0 
89 I=@:GOTO4a 
98 GOSUB1@G: I=a:GoTO4a 
95 REM (1@@-16@) EDITS INPUT FOR INCORRECT DATA 
16 E=6 :E$(E)=LEFT$(C$.38) :GOSUBIBG 
144 FORJ=GTOTE : T=T#K (J) :NEXT: IF TC>@THENE=1 :G0 T0306 
126 FORJ=@TOTE : T=T+K <I) :NEXT : IF T=@ THENE=2 : GOTO9@G 
134 I=G:FORJ=GTOTE : IFK(J)=@THENI=1+4 
44@ NEXT: IF ID>4 THENE=@ :GOTO9GG 
168 FC=K(@) :VC=K(4) : SP=K (2) :UN=K (3) 
194 REM (268-298) PERFORMS CALCULATIONS 
288 IFUN=@THENUN=FC/ (SP-C) 
21@ IFFC=@THENFC=(SP-/C) #UN 
228 IFVC=@THENVC=(FC-<(UNESP) ) /-UN: 
236 IFSP=@THENSP=(FC+<UN#VC) ) /UN 
24@ GP=UN#(SP-VC)-FC 
258 K(@)=FC:K C1) SVC :Ki2) =SP 2K 03) =UN 
268 FORJ=@TOTE :S$=LEFTS(SIRS(K(J)) 409,16) 
27@ PRINTLEFTS$(AS; I4¢J,@))SPCCI%(1,19) 55 :NERT 
288 S$=LEFTS$(STRS(GP) +C$.16) :PRINTLEFT#(A$,18)SPC(Z2@) "Ia"S$ 
298 RETURN 
895 REM (988-914) PRINTS ERROR MESSAGES 
968 PRINTLEFT$(A$.23) SPC(1)LEFT$(C#.39) 
91@ PRINTLEFT$(A$.23)SPC(A)ES(E) : RETURN 
995 REM (1@@0-115@) PRINTS FORM ON SCREEN 
1866 A=33 :AS="ld-" :FORI=1TOA :AS=AS+"—" :NEXT -AS=AS+"S " 
141@ B$="|":FORI=1T0A:BS=B$+" "NEXT: BS=B$+" |" 
1828 C$=" 5" :FORISA TOA :CH=CH4+"—" NEXT C$=C54' " 
1825 PRINT"L"; | | 
1838 PRINTASESBSBSE$CSASBSB SE SB SE $B$E $BSBSRSBSESCS MM MIDAS, 2) BSCS "ROM 
1648 AS="R" :FORI=17025 :AS=AS+"M" :NEXT 
1858 PRINTSPC(3) "SF EM AB) FO A 
1868 B$="":FORI=11025 :BS=B$+"M" NEXT 
10 


1876 
18382 
1998 
4118 
4126 
1136 
1146 
1156 
1995 
2608 
2885 
2616 
2628 
2836 
2048 
285 
2066 
2076 
2038 
28385 
2098 
2148 
2116 
2268 
2216 
2228 
2236 
2995 
30a 
3016 
3626 
3935 
4066 


READSS$ :PRINTSPCC1G) SS 

C$="":FORI=H1TO4G:C$=C$+4" "ONERT 

FORI=@TOTE :READSS5A-B.C.D.E- 

PRINTLEF T$(A$.>A) SPCCBISS$LEF TS CAF. CISPCCDILEFTS(C$.E) 

IXCI, @ SC: KCL A2=D:IKC1 23SE NEXT R=1et1,.2) (RETURN 
DATA'TTIBREAK-EVENREBESEEEBISNAL YSIS". FIXED COSTH#",.16.3,16.26.16 
DATA"HVARIABLE COST#".12,.3.:12.26,:16."INSALE PRICE" .14.3,14.26,16 
DATA"MNUMBER OF UNI TSHIMIEBREEEBEBEBIGROSS PROF ITH’ .16.3.16,.26.16 
REM (2666-2236) EDITS INFUT 

GETD$: IFD$<>"'" THENZEGG 

PRINTLEFTS(AS.AISPCCB); -GETHS.TS: PRINT RY: 

PRINT"; :FORT=17TOS@:GETDS: TF DS="" THENNERT 


IFD$=""THENPRINTTS "M's -FORT=17T0S6:-GETDS: IF DS="" THENNERT 
IFD$=""THENZ@ 14 
FORT=1TO414:1FMIDS(7$.7.19¢5D$ THENNEXT : GO TOLH6u 

GOTO92114 

FORT=1TO1G: TF MIDS (WS. 7.193 D8 THENNERT - GOTOZe1e 

IF TX6 THENZ2GE 

ONT-SGO0TO2696.2108,2116,2114.26353.2016 


D=D-1 : GOSUB4E6@ -GOTOZ116 

DS="H Hi" 

D=D-2: IFDC@THENZ268 

PRINTTS°M'D$; -GETHS,. TS: PRINT MY: -D=D+ti: IFDC=CTHENGO TOze16 
GET#S,.S$:1IFS#<>TSTHENPRINT "METS; 

IFD< LT THEND=1 

PRINTLEFTS(BS,D)5:S8=""-FORTH=L1TOC :GETHS, TS 
S$=S$+TS : NEXT - RETURN 

REM (3666-3626) CLEARS FIELDS 

FORJ=G@TOTE :PRINTLEFT#*(AS, IXtJ.@)SPCCIN( I, 1) LEP TS (C$, 14%05,2)) 
KJ) =@ : NEAT 

PRINTLEFT#(A$.199SPC026) "A"LEFT#iC$,.1@) - RETURN 

REM (4606) CLEARS FROM CURSOR TO THE END OF THE FIELD 
PRINTLEFTS#(C#,1x%¢1,2)-D) LEFT#¢( BS. 1401.2) -D-1)5.73="" -RETURN 


The concept of modular programming has been utilized as follows: 


Lines Function 
10-30 Initializes program 
40-90 Controls input from form 
100-160. Edits input for incorrect data 
200-290 Performs calculations 
900-910 Prints error messages 
1000-1150 Prints form on screen 
2000-2230 Edits input 
3000-3020 Clears field 
4000 Clears from cursor to the end of field 


REM statements have been inserted to summerize the function of 


each 


module. However, in cases where efficient use of memory 


is required, you may wish to delete these REM statements. 


Initialization of the Program 


Variable Definition 
TE = Total Entries (number of variables that 
need to be entered). 
I$(I,J) = Array in which the field positions and lengths 
are stored. 
ES (I) = Error messages 
i ae = Entered data 
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Line number Function 


10 


20 


This line sets TE=3 which offers you 

four entries (0, 1, 2, 3). All arrays 

and matrices which the program utilizes 
dimensioned. This conserves memory 

because all dimensions default to 10 

unless they have previously been dimensioned. 


The program jumps to a subroutine located 
in lines 1000-1150 which prints the form 
on the screen. (This will be discussed 
in greater detail later). The program 
then initializes two more strings WS and 
¥$ for later use. 


WS = return + cursor up + cursor down + 
clear home + cursor home + delete + 
cursor left+ cursor right + insert. 


Yee "1lLZ2Z3S 45678 9 9. 


Printing the form on the Screen (Subroutine called in line 20) 


1000 


1010 
1020 
1025 


1030 


1040 
1050 


1060 


A is set equal to 38 so that the form utilizes all 
forty columns of the screen. 


A$ is set equal to reverse field on +"e" +(38"-"/s) + "2" 
BS is set equal to "I" + 38 spaces + "|" 

C$ 18 set equal to "te" +(38 “-"4e) + %3" 

Clears the screen to prepare for the printing of the form. 
The first 20 strings (combinations of A$, B$ and C$), 
print the two reverse field rectangles and their borders. 
Then a reverse field off and cursor down are printed 
followed by strings A$, BS$ and C$ not in reverse field. 


The cursor is then moved home and down one row. 


Note: The MIDS function is defined with three subscripts. 
However, MIDS (X$,A) defaults to the string xX$ starting 
with the Ath character. This is useful when you do not 
know the length of the string and you wish to call the 
right most portion of a string (the right function be- 
comes cumbersome in this case). 


In the next five lines A$, BS$ and C$ are reset. The re- 
utilization of these variables helps to conserve memory. 


AS is set equal to cursor home + 25 cursor down's. 
Prints the Commodore logo in the upper left-hand corner 


B$ is reset to a string of 25 cursor left's. 
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1070 Reads the first piece of data located in line 1130 as SS. 
(So S$ = cursor up + cursor up + reverse field on + BREAK- 
EVEN + cursor down + 9 cursor left's + ANALYSIS"). 
S$ is then printed, centered on the top of the screen. 


1080 C$ is set equal to 40 spaces. 


The next three lines contain a FOR NEXT loop which reads 
in the rest of the data contained in lines 1130-1150. 


iy 
| 


= field title 

field title row position 
field title column position 
field row position 

field column position 

field length 


HoAWrNn 
Il 


ou ue i 


1090 Reads the data SS, A, B, C, D, E 


1110 Prints the field title and the spaces for the input 
(referred to as the 'field'). 


1120 Stores the field row position, column position and 
length in the matrix I% (I,J). This information will 
be needed later in order to receive the input from the 


screen. 
+ fixed variable sale number 
of 
cost cost price units 


Field row 





Position 

Field column j1 20 20 20 20 
Position 

Field Length j2 10 10 10 10 
1130-1150 data statements called in line 1070 and 1090. 


Subsequent issues of this PET NEWSLETTER will contain a 
similar description of the remaining routines within this 
program. 
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Below is a form which we feel is excellent for recording programs and documentation. 
To order write: 





Prices: 
ALCORN DATA SERVICES Pads/aprox. 50 sheets $2.50 per pad 
P.O. BOX 1535 5 Pads/ $7.50 
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Peripherals & Attachments 


This section will list and preview known PET compatible PERIPHERALS and 
ATTACHMENTS. In addition to standard or commercially available equiptment, 
we would be interested in any new and unusual hardware interfacing which you 


may come across. 


PERIPHERALS 


PET PRINTER PREVIEW 


Two of the latest additions to the Commodore line of 
intelligent IEEE peripherals are the 2022 and 2023 Printers. 
The 2022 is an 80-column tractor-feed printer and the 2023 
is an 80-column friction-feed printer. 


Each printer contains a 6504 microprocessor, (smaller cousin 
of the 6502), and has a program in ROM which enables it to 
process two classes of data received over the IEEE bus. 
Special bus commands can be used to differentiate betweendata 
which is to be printed and data which is to be used in con- 
structing the print format. Additionally, control characters 
permit printing of enhanced (double wide characters), and 
reverse field (white on black). 


Basic programs can be listed from a PET just as they would 
appear on the CRT. There is even an auto line counting mode 
which spaces to the top of a form after a programmed number 
of lines. 


Furthermore, the 2022 has a variable number of steps between 
lines. With this feature, continuous graphics can be formed 
in the vertical axis. This feature can also be used to set 
up popular 6 lines/inch or 8 lines/inch spacing. 


Both the 2022 and 2023 Printers have a built-in diagnostic 
capability which can be activated even without a PET attached. 


KKK KEK KKKEK KKK KKK KKK KK KK KK KK KKKKK KKK KKK KKKKKKKKSE 
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ATTACHMENTS 


Even though the following program has recently been published in other Newsletters, 


we feel because of its' excellence, it merits republication. 


PET, AND THE DUAL JOYSTICKS 
by 
CHUCK JOHNSON, SPHINX 


The joystick manufactured by Atari® for their Home Video Arcade 
offers a very simple and superbly versatile remote input device for 
the PET and other micros with a parallel input port. In this article 
the author will propose an interface which accomodates two Atari 
joysticks and requires a minimum of electronic parts. A general- 
purpose subroutine allows the user to fully interpret joystick and 
button movements and includes ideas for more specialized applications. 


WHAT'S A JOYSTICK? 


The joystick concept evolved with the technology of airplane maneuvering. 
From the earliest controlled aircraft (somewhat post-Wright brothers) 
through the Viper fighter of Battlestar Galactica, the "broomstick-on- 
the-floor" has been the most popular steering device. Joysticks for 
video games and home computers are identical in monger and fall into 
two functional categories: 

1. POTENTIOMETER - movement of the joystick turns two variable 
resistors; one senses up-down movement, the other senses 
left-right movement. Decoding the joystick position re- 
quires a resistance or voltage measurement to be interpreted 
by the game or computer. 

2. SWITCH - Pushing the joystick in one direction closes a 
simple (SPST) switch. The game or computer senses the 
joystick position by checking the status (open or closed) 
of four switches - one each up, down, left, and right. 

The Atari joystick is a switch-type device, with an additional push- 
button switch. This mechanism very easily attaches to the PET's 
parallel port (User Port), but... 


WHAT'S A USER PORT? 


The PET has several attachments for accessories on the back. One of 
these slots is the parallel input/output port, or User Port. [In 
general, the User Port can send or receive eight electronic signals 
which are "high" or "low," according to TTL convention. (These 
signals may also be humanly interpreted as on/off, yes/no, or five 
volts/zero volts.) We will be using the User Port for input and in 
that mode all eight signals are normally "high;" our joystick (s) 
switches will force some of the signals to their "low" condition. 

We can pull any one of the signals "low" by attaching it to the 
"ground" line of the User Port. The switches in the joysticks 

will be wired to close the circuit between the "ground" line and one 
of the data bits. 
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HERE'S THE PLAN 


Each joystick has four position switches and one push-button switch. 
We'll attach the position switches so that each one closes the circuit 
to one of the Port data lines. We'll wire the two push-button 
switches so that each one closes two circuits, instead of one, and 
pulls two data lines "low". This layout accommodates the full 
capabilities of two Atari joysticks and is very simple to physically 
assemble. 


THAT'S GREAT, BUT HOW DOES A PET PROGRAM USE IT? 


Conveniently, the PET looks at the User Port as just another eight- 
bit memory location. (Aha! You thought eight data lines were mere 
coincidence!) PEEKing at memory location 59471 reveals the status 

of the data lines as a binary number (a decimal range of 0 to 255). 
If all switches are open, then all lines are "high" and 59741 contains 
11111111 (binary) or 255 (decimal). When a switch is closed, the 

bit corresponding to that line turns to a zero. If a joystick switch 
closes the first circuit, then 59741 would contain 11111110 (binary) 
or 254. If two switches on one joystick are closed (the push-button, 
for example), then 59741 would contain a number with two zero bits, 
say 11110011 (binary) or 243. 


Once a program has performed these decoding steps, it can interpret 
the meaning of the various switch closures and proceed accordingly. 


OK, LET'S PUT IT TOGETHER 


To implement the two joystick interface we must establish an attachment 
standard and a decoding standard. The attachment ‘standard provides 

the external connection and the physical means for inputting switch 
closures. The decoding standard is a BASIC subroutine which inter- 
prets the meanings of joystick switch closures for a program in 
execution. 


JOYSTICK ATTACHMENT STANDARD 


The Atari Joystick terminates with a DB-9S connector; six of the nine 
circuits are used as follows: 


DB-9PIN FUNCTION 


i Up Switch 

Down Switch 

Left Switch 

Right Switch 

Not Used 
Push-Button Switch 
Not Used 

Ground (common) 
Not Used 


e 
e 
e 
e 
OWN AHANU SW DN 


A DB-25P connector will accept two joystick connectors; the DB-25 
may then be wired to a User Port edge connector, according to the 
following table: 
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JOYSTICK DB-9S PIN DB=25P PIN USER PORT PIN USER PORT FUNCTION 


les UP 1. 9 F PA3 
DOWN 2 10 E PA2 
LEFT 3 11 D PAL 
RIGHT 4 12 Cc PAO 
BUTTON 6 22 Diodes to E and F PA2 and PA3 
GROUND 8 24 A : GROUND 
2s UP 1 1 L PAT 
DOWN 2 2 K PA6 
LEFT 3 3 J PA5 
RIGHT 4 4 H PA4 
BUTTON 6 14 Diodes to K and L PA6 and PA7 
GROUND 8 16 N GROUND 


Pin numbers for the DB-25P are marked on the connector. User 
Port pins are on the bottom row of a 12 position edge connector. 
Proper polarization of the edge connector is strongly recommended. 


Note that the buttons are wired through diodes to both the UP and 
DOWN functions of their joysticks (pins E and F and pins K & L). 
When a button is pressed, the PET data lines react as though the 
joysticks were pushed up and down simultaneously (an impossible 
condition for the position switches to generate). The decoding 
standard will, as we shall see, interpret this condition as a button 
movement. The diodes act as "one-way streets" for current flow and 
prevent the real UP and DOWN switches from closing both circuits. 


Orientation of the diodes is very important. We want current to 
flow from the data lines to ground. When soldering the diodes in 
place, orient them with their cathodes ("banded" ends) connected to 
the joystick buttons (pins 14 and 22 on the DB-25P). If the user 

is not interested in using the buttons, the button lines may be left 
unconnected and the diodes omitted. 


SOFTWARE DECODING STANDARD 


To a great extent, the software to interpret joystick switch closures 
may be specifically written for each different application. The 

BASIC subroutine in this section is meant as a general purpose de- 
coder for two joysticks and is by no means the most efficient (i.e. 
fastest). It performs all of the necessary tasks, however, and should 
be used as a guideline. 


Here's the routine to decode five switches on two joysticks: 


100 REM INITIALIZE THE LOOKUP TABLE 
110 DIM JS (15) 

120: FOR I = @ TO 15 

130 READ JS (TI) 

140 NEXT I 

150 DATA 99, 995% 99, 0; 59, Vr 3 


8 
’ 
160 DATA 99, 1, 3, 2, 99, 4, 6, 5 
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19999 REM POLL TWO JOYSTICKS 

20000 J1 = JS (PEEK(59471) AND 15) 

20010 J2 = JS ((.0625*PEEK (59471)) AND 15) 
20100 RETURN 


The routine returns "lookup table" values in Jl and J2 for joysticks 

1 and 2 respectively. The calling program maybe written to take 
appropriate action based on these values. Readers familiar with 

User Port control will recognize memory location 56741, as Port A Data 
without handshake. 


This subroutine uses four bits (PAO-PA3 or PA4—-PA7) in decimal form 
(range 0 to 15) as an index to the "lookup table" in array JS. 

The values in the JS array correspond to the following joystick 
functions: 


DECIMAL 
INDEX BINARY JOYSTICK EXAMPLE VALUE 
0 0000. == 99 
1 0001 = 99 
2 0010 == 99 
he 0011 BUTTON 0 
4 0100 = 99 
5 0101 UP-LEFT 7 
6 0110 UP-RIGHT 9 
7 0111 UP 8 
8 1000 —— 99 
o 1001 DOWN-LEFT dk 
10 1010 DOWN-RIGHT 3 
11 1011 DOWN 2 
1A 1100 == 39 
13 1101 LEFT 4 
14 1110 RIGHT 6 
15 bis oe CENTERED 5 


The "example values" relate to the key layout on the PET numeric 
pad, i.e. joystick centered is "5", joystick UP and LEFT is "7", et 
cetera. Recall that the BUTTON entry is analogous to UP and DOWN 
switch closures. Impossible conditions are flagged with "99", 
Other tables may be developed to suit the user's needs. 


These modifications are reasonable for more specialized applications: 


1. To use joystick 1 only, delete line 20010. 

2. To use both joysticks without their pushbutton functions, 
change the fourth entry in the lookup table from "0" to "99" 
(line 150). 

3. Make use of ON-GO TO statement. 

4. Recode the routine in machine language. 


SOUNDS LIKE FUN...WHAT DO I NEED? 


The hardware for this project consists of two circuit connectors and 
four diodes, in addition to one or two Atari joysticks. The joysticks 
plug into the DB-25P subminiature connector, manufactured by ITT 

Cannon and several competitors. The User Port connector is a 12 
position, dual readout edge connector, widely available. The suggested 
diode is a 1N914, which is a commonly used fast switching device. 


19 


Actually any flea power diodes should work. Assembly is quick and 
requires soldering wires and diodes between the DB-25P and the edge 
connector; refer to the attachment standard. Be sure that the diodes 
are oriented correctly. Improper orientation will not damage the PET, 
but the joystick buttons won't respond as planned. Plug the edge 
connector onto the back of your PET (it's the center slot); be sure 
it's properly oriented. Plug your joysticks into the DB-25P. Turn 
the PET on and you're off and running! 


As a service to interested joystick-ers who lack a source for parts, 
these items are available from the author: 


User Port connector with polarizing keys S 3.50 
DB-25P wired for 2 joysticks 

(4 diodes included) 3.50 
Atari joystick 15.00 
SNAKE program on cassette 2.00 
Two joystick, both connectors, four 
diodes and SNAKE cassette 36.00 


The SNAKE program was originally written by Pete Rowe of the Lawrence 
Hall of Science in Berkeley, and couldn't be better suited for two 
joysticks. The author has modified the SNAKE coding for joysticks 

and is distributing it with the permission of Pete Rowe and the SPHINX 
user group library. 


REBUTTAL AND DISCUSSION 


-.e-are strongly encouraged. All suggestions should be publicly aired. 
The author will gladly receive comments and/or parts requests over 
the telephone (415/278-6595 at reasonable PST hours), at SPHINX 
meetings, or by mail: 


Chuck Johnson 


17104 Via Alamitos 
San Lorenzo, CA 94580 
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Applications 


We will reprint Issue 1's APPLICATION format until your submissions have been 


received and reviewed. 


There are almost as many applications for a PET as there are PET's themselves. 
We would like to find out what the PET is being used for so that we can pass on 


relevent details to other people interested in the same area of use. 


We are therefore offering $50.00 worth of free Master Library Software to the best 
'Applications" article published in each issue. If you would like to write about 


what you are doing with your PET, please include the following details: 


What the nature of the application is. 

. What (if applicable) non-computerized system has the PET replaced. 
Details of any extra hardware used. 

Any "special features" of the programs used. 


Who else this system might be useful to. 


Om BWN + 


Any further improvements/modifications intended. 
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Programming 


This section will be dealing with useful routines and "tricks" for using on your PET. 
Some articles come from users, some from ouselves, and there is a " Hints and Tips" 


section for smaller yet valuable items. 


FORMATTING ROUTINE (by J. Parsons/ C. Westfall) 


Many business applications programs require the display 

of numberical tables. PET offers the SPC and TAB functions 
to allow you to easily print the numbers in columns which 
are left justified. However, it is often desirable to 
right justify the columns, line up the decimals and/or 

have the numbers consistently truncated to the same pre- 
cision. 


The following routine allows you to emulate a 'format' 
statement. This program enables you to print columns 

of numbers with the decimal points aligned. It also 
unifies the precision with which each number is displayed. 
This routine is ideal for business and finance applica- 
tions. 


20 cs ="ABAAAA AAAS" 


25 DEF FNA(X) = INT(ABS(X)) 
26 DEF FNB(X) = (ABS(X) - FNA(X) + 1.0000001 
100 input "A AAB< oe” ; X $: X = VAL(X$): GO SUB 


600: PRINT X, RIGHTS$(C$+X$,10): GO TO 100 


600 xs = "SA" + MIDS(STRS(FNA(X)),2) + 
MIDS (STRS (FNB(X)), 3; 3) + LEFTS (STRS (X) ,1) 


605 RETURN 


KEY CODES: A= Space 
= Shifted Space 
<= Cursor Left 


VARIABLE NAME DEFINITION 

X$ = The number the user inputs 

‘ = Numerical value of X$ (i.e. x = VAL(X$)) 

FNA (X) = The integer portion of X(the number entered) 
FNB (X) = The absolute value of the decimal portion 


of X(the number entered) plus one. 


cs = 10 spaces 
Z p 22 


PROGRAM EXPLANATION 


10 


25 


26 


100 


600 


C$ is set up to be a field of ten spaces. 
C$s length should be equal to the width of 
your field. 


Example: 


If X$ only requires six columns, then CS would 
equal six spaces. 


FNA(X) is defined to be the absolute value of the 
integer portion of X. The INT function always 
rounds down. Therefore, INT (-1.9) would be -2. 
In order to extract the numeral 1, it becomes 
necessary to take the integer (INT) of the abso- 
lute value (ABS) of -1.9. 


INT (ABS(-1.9)) 
INT (1.9) 
nid 


FNB(X) extracts the absolute value of the decimal 
portion of X. 1.0000001 is added in to the deci- 
mal portion of X. By adding 1 (one), the PET 
will not convert FNB(X) to floating point form. 
To add trailing zeros to an integer or number of 
lesser precision than desired .0000001 is added. 


A protected input (as discussed on page 20 of 
Volume 1, Issue 1 of this Newsletter is used to 
enter the number. xX is assigned the numerical 


value of X$ (the number entered). A subroutine 
is then called which concatenates the appropriate 
strings. The concatenation is placed in a subroutine 


so that it can be accessed from anywhere within 

a program. The program then prints your original 
number and the formated number. The comma starts 
the printing in the 1lth screen column. Only the 
10 rightmost characters of C$ + X$ are printed 

to ensure you of ‘a 10 character field. In review- 
ing the code: RIGHTS (C$+X$,10), "10" indicates 
the total number of characters in the field. 


Contains the subroutine which constructs the desired 
string to be printed 


Xs = "SA" 
plus MIDS (STRS (FNA(X)),2) - places the integer 


portion of X in 
string form. 


Zo 


605 


plus MIDS (STRS (FNB(X)),3,3) - extracts the 


The last 
controls 
output. 


Example: 
2 rounds 


3 rounds 
4 rounds 


plus LEFT $(STRS (xX) ,1) 


decimal portion 
of X along with 
the decimal point. 


subscript in the MIDS 


the precision of your 


to the nearest .1 
to the nearest .01 
to the nearest .001 


- the sign of X 


(positive or negative). A space 
is printed for a positive X and 
a negative sign (-) for a nega- 


tive xX. 


In this particular program the sign is printed to 
the right of each number. This aligns the signs 
to be printed in the same column. The format to 
be used is only a matter of preference. This can 
easily be changed by rearranging and modifying the 


strings in line 600. 


Returns control of the program back to line 100 


(in this case). 
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BITS AND PIECES 


MEMORY LOCATION 


When programming in machine language, occassionally it becomes useful to 
determine the location at which a specific variable is stored. The following 
routine developed by David M. Duncan of San Francisco, Calif., gives both 
the value of a variable (V) and the decimal location of it's first character. 


100 V=2001.8 


110 VT=V 

120 V=PEEK( 150) +256 * PEEK (151) 
130 ML=V 

140 V=VT 


150 PRINT "V=";V"MEMORY LOCATION IS"; ML 
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Simple Non-Stop Programs | (by J. Feagans) 


By Poking the RAM interrupt vector to a valve 3 greater 
than the original, one is able to prevent the stop key 
action but still allow full keyboard scan and INPUT 
operation. 


Location 537 in the 8K PET contains a 133. 
POKE 537, 136 


causes the software to avoid a subrouting call which 
updates the clock register and checks for the stop key. 
If the stop key is pressed, the GET command will return 
a CHRS (3): 


10 GET AS: if AS = CHRS (3) then end 
20 GO TO 19g 


Caution: The IRQ RAM vector will be reset if (1) the 

PET is reset, (2) a cassette is loaded or saved. Further- 
more, keep in mind that TI and TI$ no longer keep the time 
of day. 


23 


Users’ Directory & 


Announcements 


One of the major advantages in being a member of the PET USERS' CLUB is the 
ability to get hold of PET related Software and ideas. Although our Master Library 
of programs is now growing, we get frequent Software inquires for a wide range 

of applications. 

In this issue, we have included the current Users' Directory, containing lists 

of people writing software, importing literature or starting local PET Groups. If you 
would like to use your PET for fun and profit, why not offer personal tutoring in 
PET programming to new PET owners. Alternatively, if you require a program to 
be written for you, ask for contacts via the USERS' DIRECTORY. The possibili- 
ties are endless. Please write to the EDITOR, U.S. PET USERS' CLUB, at 

our NEW address below. 


To-include your name in the USERS' DIRECTORY, please complete the following 
form: 


TO: THE EDITOR, U.S. PET USERS' CLUB, Commodore Business Machines 
Inc., 3330 Scott Blvd., Santa Clara, Calif. 95050. 


NAME: 
ADDRESS 


SERVICES OFFERED/SPECIALIST AREA OF INTEREST: 


To include as many contacts as possible, we must restrict each USER to only one 
line of description. 


COMMODORE reserves the right to edit or withdraw any entry. 


KRREKKKKEKEEKKE KKK KKK KKK KE KK ERK KK KKK KKK KKK KKK KKKSE 
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Listed here are PET users who have submitted their specialty or 
area of interest to further the communication of ideas with PET 
owners throughout the United States. If you would like to con- 
tribute, please fill out the form which follows. 


NAME AND ADDRESS SERVICES OFFERED/SPECIALTIES 
Michael Baltay Structural Design, Earthquake, 
9900 Milburn Drive Mathematics. 

Sun Valley, Calif. 

91352 

Joseph Banasiak, P.E. EMC 

415 Nutt Road Engineering Programs and Analysis. 
Phoenixville, Pa. Also would like to form local-user 
19460 group. 

Larry Hauder Software--tutorial. 


4810 East Firestone Blvd. 
Southgate, Ca. 


90280 

Capitol Area PET Enthusiasts Monthly Meetings on 2nd Saturdays at 
(CAPE) PATRICK HENRY LIBRARY, 101 Maple Ave., 
Robert Karpen (Coordinator) Vienna, Va., at 1:30 p.m. 


2054 Eakins Court 
Reston, Va. 22091 


Dennis Costarakis Securities, investments, stocks, 


3562 Union Street options, bonds, convertibles and 
San Diego, Ca. hedging techniques. 
92103 
Charles E. H. Edward Computer aided engineering design 
3300 Wake Drive using the PET. 
Kensington, Md. 
20795 
H. A. Elkholy Education. 
Fairleigh Dickinson 

University 
Madison, New Jersey 
07940 
Ben Firschein Personal tutoring in PET programming, 
29 Stowe Lane writing games and graphics software. 
Menlo Park, Ca. 
94025 
Ron Gutman Experienced microprocessor programmer 
13620 Ferncrest Court will develop software in basic and/or 
Saratoga, Ca. 6502 assembly. Currently developing 
95070 PET music system. 


af 


Donald F. Hemenway 
7805 Klovstad Dr. 
Oxon Hill, Md. 
20022 


JAPS-Jacksonville Area 
PET Society 

c/o R. Crockett 

401 Monument Road #177 
Jax, Florida 3221] 


Chuck Johnson 
17104 Via Alamitos 
San Lorenzo, Ca. 
94580 


Milt Lee 

1348 Rudgear Road 
Walnut Creek, Ca. 
94596 


Mark Pleticha 

P.O. Box 77562 
Station 'E' 

San Francisco, Ca. 
94107 


Society of Computer Owners 
and PET Enthusiasts 
(SCOPE) e 

1020 Summit Circle 
Carrollton, Texas 

75006 


Mark Zimmerman 
Caltech 130-33 
Pasadena, Ca. 
91125 


Tutoring, new owners/radar systems 
design/personal finance. 


PET library. 50+ programs available 
$2.50 first program tape, $1.50 each 
additional. SASE for list. 


Joysticks, Parallel Port, Assembly 
Language. 


PET as a data logger. Telephone 
modem. 


"Contract Programming" 


Specialists in every aspect of the 
PET are available. 


Would like to help anybody who has 
questions concerning physics, mathe- 
matics, games, FORTH, Assembly language. 
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THE LIST OF PET USER GROUPS LISTED BELOW IS BY NO MEANS COMPLETE. 
PLEASE NOTIFY US IF WE OMITTED YOUR GROUP. 


Association of Personal Computer Users 


5014 Rodman RG ys. ceiccce view acoso ewiescuisb aeen Bethesda, Maryland 20016 
Amateur Computer Group of New Jersey 

BOXES 7 Gia sas crc sews esas a chute biosoietane ieee cides South Bound Brook, NJ 0880 
Bambug 

TA SOMSSKOUSE ayer avte-cos antes rniees bra eu eae cin nists Emeryville, CA 
Lawrence Hall of Science, UC Berekeley 

Computer Project, Room 254..............06. Berkeley, CA 94720 
Las Vegas PET Users 

ASS IKON AVEsiac aa acadeswcaeeiakes see eee Las Vegas, Nev. 89110 
Lincoln Computer Club 

#50. Es YOSEMILE sé otioars sataus or suerend sed cher Manteca, CA 95336 
Madison PET Users 

1400 East Washington Ave.............20005 Madison, WI 
Northern New England Computer Society 

PAO BOO seit h cmc iek Ohed ein os teeeou Berlin, NH 03570 
North Orange County Computer Club 

3030: Topaz}. Apts Amsannisvacdiwiedaswedeea Fullerton, CA 92361 
PET User Club (CAPE) 

2054: EakitisvG (as wee ewe de aia 8s <5 Reston, VA 22091 
PET User Group 

2235 Lakeshore Dr..............cese0- ....-Muskegon, MI 49441 
PET User Group 

Texas A & M Microcomputer Club............. Texas A&M Tx. 
PET User Group 

PEO AIBOK Bil diss sin curses seacsjo ees ote shew ation ie Montgomeryville, PA 18936 
PUG 

3:0: Showers: Dis: esa: sé: sot 60.9: ao hie scecavo.ee Mountain View, CA 
Sacramento PET Workshop 

PO BOE GS itor seayetaa saatereye Gee Vs weitere eheaee tae es Sacramento, CA 
SCOPE 

102.0: SummitsGirele sca casccciste ce castor a db iccadsacos Carrollton, TX 75006 
SPHINX 

BUA LO th AVC sijcccssress oie scares Gre whe ee aka e ore our wa wise Oakland, CA 


St. Louis Club 
40 Westwood Court............00-.eeecece see St. Louis, MO 63131 


The Human Society - United PET Users 
1929 Northport Dr. #6............0.0cceeeees Madison, WI 53704 


Valley Computer Club 
P40... Boe O54 5.5 oii chceca seid tame cecese eaees Burbank, CA 91510 
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COMMODORE BUSINESS MACHINES, INC. 
3330 SCOTT BLVD. 
SANTA CLARA, CA 95050 


COMMODORE/MOS 

VALLEY FORGE CORPORATE CENTER 

950 RITTENHOUSE ROAD 

NORRISTOWN, PENNSYLIVANIA 19401, USA 


COMMODORE BUSINESS MACHINES LIMITED 
3370 PHARMACY AVENUE 
AGINCOURT, ONTARIO, CANADA M1W2 K4 


COMMODORE SYSTEMS DIVISION 
360 EUSTON RD 
LONDON NW1 3BL, ENGLAND 


COMMODORE BUROMASCHINEN GmbH 
‘FRANKFURTER STRASSE 171-175 
6078 NEW ISENBURG 

WEST GERMANY 


COMMODORE JAPAN LIMITED 
TAISEI-DENSHI BUILDING 
8-14 lkue 1-CHOMEASAHI-KU, OSAKA 535, JAPAN 


COMMODORE ELECTRONICS (HONG KONG) LTD. 
WATSONS ESTATES 

BLOCK C, 11th FLOOR 

HONG KONG, HONG KONG 


P/N 320851 A02 


